home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / C and C++ / Libraries / TransDisplay / Demos / Pascal Demos / MiniDisplay / MiniDisplay.p next >
Text File  |  1994-02-26  |  2KB  |  90 lines
  1. program MiniDisplay;
  2.  
  3.     uses
  4.         TransSkel, TransDisplay;
  5.  
  6.     const
  7.  
  8.         fileMenuNum = skelAppleMenuID + 1;
  9.  
  10.     var
  11.  
  12.         r: Rect;
  13.         m: MenuHandle;
  14.         w: WindowPtr;
  15.         ignore: Boolean;
  16.         str: Str255;
  17.  
  18.  
  19.     procedure DoFileMenu (item: Integer);
  20.     begin
  21.         SkelStopEventLoop;
  22.     end;
  23.  
  24.  
  25. begin
  26.     SkelInit(nil);
  27.     SkelApple('', nil);
  28.     m := NewMenu(fileMenuNum, 'File');
  29.     AppendMenu(m, 'Quit/Q');
  30.     ignore := SkelMenu(m, @DoFileMenu, nil, false, true);
  31.  
  32.     SetRect(r, 100, 75, 420, 275);
  33.     w := NewDWindow(r, 'MiniDisplay', false, WindowPtr(-1), false, 0);
  34.  
  35.     if (w = nil) then
  36.         begin
  37.             SkelCleanup;
  38.             ExitToShell;
  39.         end;
  40.  
  41.     DisplayString('This is MiniDisplay, a minimal demonstration of ');
  42.     DisplayString('TransDisplay.  The following types of output may ');
  43.     DisplayString('be written with the built-in output calls:');
  44.     DisplayLn;
  45.  
  46.     DisplayLn;
  47.     DisplayString('Arbitrary length text: ');
  48.     str := 'Some text';
  49.     DisplayText(Ptr(@str[1]), 9);
  50.     DisplayLn;
  51.     DisplayString('Pascal string: ');
  52.     DisplayString('"\pThis is a Pascal string."');
  53.     DisplayLn;
  54.     DisplayString('C string: ');
  55.     DisplayString('(not available in Pascal demo version)');
  56.     DisplayLn;
  57.     DisplayString('Char: ');
  58.     DisplayChar(chr(120));                    { x }
  59.     DisplayString('    Hex char: ');
  60.     DisplayHexChar(chr(120));                { x }
  61.     DisplayLn;
  62.     DisplayString('Short: ');
  63.     DisplayShort(1023);
  64.     DisplayString('  Hex short: ');
  65.     DisplayShort(1023);
  66.     DisplayLn;
  67.     DisplayString('Long: ');
  68.     DisplayLong(32768);
  69.     DisplayString('  Hex long: ');
  70.     DisplayHexLong(32768);
  71.     DisplayLn;
  72.     DisplayString('Boolean: ');
  73.     DisplayBoolean(true);
  74.     DisplayString(', ');
  75.     DisplayBoolean(false);
  76.     DisplayLn;
  77.     DisplayString('OS text type: ''');
  78.     DisplayOSType('TEXT');
  79.     DisplayString('''');
  80.     DisplayLn;
  81.     DisplayString('Carriage return.');
  82.     DisplayLn;
  83.     DisplayLn;
  84.     DisplayString('Select Quit from the File menu to exit.');
  85.     SetDWindowPos(w, 0);            { scroll back to top }
  86.     ShowWindow(w);
  87.  
  88.     SkelEventLoop;
  89.     SkelCleanup;
  90. end.